5 POKE650,255:PRINT"";:GOTO30
10 XX=0:IFXY<760THENRETURN
15 PRINT"[207]UT OF LINES!!!":FORT=1TO500:NEXT:PRINT"[145]                 ":XX=-1:RETURN
30 POKE53280,6:POKE53281,0:PRINT"[147]":IFPEEK(49408)=1THEN40
36 PRINT"[147]           [208]LEASE WAIT..":LOAD"EDSTAR 5.O",8,1
40 GOSUB50:POKE55,0:POKE56,39:CLR:S=10000:POKE53272,23:TB=1503:GOTO60
50 POKE1020,1:POKE1021,19:POKE1022,0:POKE1023,39:RETURN
60 IP=49448:LS=49430:MT=49433:MB=49436:SD=49415:SC=49412:SF=49418:LF=49421:LM=49442:MW=49439:DC=49424:IC=49427:WW=49445:CL=49409:MD=49451:MI=49454:WC=49457:PR=49460:SP=49463:CA=49466:G1=49469:G2=49472:G3=49475:G4=49478:G5=49481:RD=49484:SYSMW:GOSUB765
135 DEFFNS(X)=X*40+9960:POKE646,12:SYSCL:GOSUB300:GOSUB405:LN=1:GOTO145
145 PS=1465:POKE53272,23:T$=" ":GOSUB715:GOTO155
155 GETC$:IFC$<>""THEN175
160 POKEPS,PEEK(PS)OR128
165 GETC$:IFC$<>""THEN175
170 GOSUB303:GOTO155
175 POKE150,ASC(C$):SYSIP:IFPEEK(150)=0THEN270
180 ONPEEK(151)GOTO190,205,210,215,220,225,230,235,240,245,250,255,260,265
185 GOTO165
190 XY=LN:GOSUB10:IFXXTHEN200
195 GOSUB303:PS=1465:SYSLS,LN:LN=LN+1:SYSSC:SYSMB,LN+8
200 GOTO280
205 GOSUB395:GOTO165:IN
210 GOSUB330:GOTO165:CR
215 GOSUB345:GOTO165:CR
220 GOSUB355:GOTO165:CR
225 GOSUB380:GOTO165:CR
230 GOSUB475:GOTO165:^DL
235 GOSUB530:GOTO165:^IL
240 GOSUB303:GOSUB635:GOSUB410:GOSUB725:GOSUB985:GOTO165:SAVE
245 GOSUB805:GOSUB720:GOTO165:^PPRINTER
250 GOSUB310:GOTO165:DE
255 GOSUB1315:GOTO165:^XE
260 GOSUB910:GOTO165:^HH
265 GOSUB1025:GOTO165:^FFONS
270 LP=PEEK(49151+ASC(C$)):POKEPS,LP:PS=PS+1:IFPS=TBTHENPS=1465:GOSUB430:SYSLS,LN:SYSMB,LN+8
280 IFLN>NLTHENNL=LN
285 GOTO155
300 FORT=55736TO55775:POKET,7:NEXT:RETURN
303 POKEPS,PEEK(PS)AND127:RETURN
310 IFPS<1466THENRETURN
315 POKE150,PS-1465:GOSUB303:SYSDC:PS=PS-1:RETURN
330 IFPS>1465THENGOSUB303:POKEPS,PEEK(PS)OR128:GOSUB303:PS=PS-1
335 RETURN
345 IFPS<1502THENGOSUB303:POKEPS,PEEK(PS)OR128:GOSUB303:PS=PS+1
350 RETURN
355 IFLN=1THENPRINT"             [211]TART OF TEXT[152]":GOSUB585:RETURN
365 GOSUB303:SYSLS,LN:LN=LN-1:SYSSD:IFLN>10THENSYSMT,LN-10
375 RETURN
380 IFLN>=NLTHENGOSUB575:RETURN
390 GOSUB303:SYSLS,LN:LN=LN+1:SYSSC:SYSMB,LN+8:RETURN
395 POKEPS,PEEK(PS)AND127:POKE150,PS-1463:SYSIC:RETURN
405 :
410 PRINT"[155] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":GOSUB303:FORT=1TO3:PRINT" [221]                                    [221]":NEXT:PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145][145][145]";:RETURN
430 XY=LN:GOSUB10:IFXXTHENRETURN
440 XF=0:IFPEEK(TB-1)=32THENXF=-1
445 SM=FNS(LN+1):POKE251,INT(SM/256):POKE250,SM-PEEK(251)*256:FM=FNS(NL):POKE253,INT(FM/256):POKE252,FM-PEEK(253)*256:SYSWC:IFPEEK(150)<>0THENPOKE1020,12:SYSSD:SYSMI:NL=NL+1:POKE1020,1
460 SYSWW:PS=PEEK(150)+1464:SYSLS,LN:SYSSC:LN=LN+1:IFXF=-1THENPS=1465
470 RETURN
475 IFNL=0THENRETURN
485 PRINT"[196]ELETING A LINE...":SM=FNS(LN):POKE251,INT(SM/256):POKE250,SM-PEEK(251)*256:SM=FNS(NL+1):POKE253,INT(SM/256):POKE252,SM-PEEK(253)*256:SYSMD:POKE1020,11:SYSSC:GOSUB50:PS=1465:NL=NL-1:SYSLS,LN:SYSMB,LN+8:PRINT"                   ":POKE150,0:POKE151,0:POKE152,0:POKE153,O
520 IFNL<LNTHENGOSUB355
525 RETURN
530 :
535 XY=NL:GOSUB10:IFXXTHENRETURN
540 PRINT"[201]NSERTING A LINE...":SM=FNS(LN):POKE251,INT(SM/256):POKE250,SM-PEEK(251)*256:FM=FNS(NL):POKE253,INT(FM/256):POKE252,FM-PEEK(253)*256:SYSMI:NL=NL+1:GOSUB303:POKE1020,11:SYSSD:GOSUB50:PS=1465:PRINT"                    ":POKE150,0:POKE151,0:POKE152,0:POKE153,0:RETURN
575 PRINT"[197]ND OF TEXT
585 [129]T[178]1[164]40:[130]:[137]605
590 [151]54296,15:[151]54277,45:[151]54278,165:[151]54276,33:[151]54273,6:[151]54272,5:[129]T[178]1[164]200:[130]:[151]54276,32:[151]54273,0:[151]54272,0:[151]198,0:[142]
605 [153]"                            ":[142]
620 [141]410:[153]"CMDATNRE YOU SURE YOU WANT TO EXIT? ((null)/(null))
625 GETD$:IFD$=""THEN625
627 IFD$="N"THENOW=0:RETURN
628 IFD$="Y"THENOW=1:GOTO630
629 GOTO625
630 GOSUB410:PRINT"[157][196]O YOU WISH TO [211][193][214][197] THIS FILE? ([217]/[206])
631 [161]D$:[139]D$[178]""[167]631
632 [139]D$[178]"Y"[176]D$[178]"(null)"[167]635
633 [139]D$[178]"N"[176]D$[178]"(null)"[167][142]
635 [158]LS,LN:FX[178]17:[159]15,8,15,"I0":[160]15
640 [141]410:[153]"(null)AVE AS WHAT? ($-STR$RIGHT$(null))":[153]"(null)ATN(null)VAL :";:[141]2000:FS$[178]K$:[139]FS$[178]""[167]630
645 [139]FS$[178]"$"[167][153]"LOAD":[158]CA:[153]"":[137]640
650 FX[178]FX[171]1:FS$[178][200](FS$,FX):[139][201](FS$,1)[178]" "[167]645:[139]FS$[178]FI$[167]655
655 FI$[178]FS$:[141]410:[153]"(null)AVING '"FI$"'":[159]15,8,15:[152]15,"R0:"FI$"=0:"FI$:OW[178][171]1:[132]15,A$:[139]A$[179][177]"63"[167]688
670 [153]"ONASCRIGHT$(null)VAL VAL(null)RIGHT$(null)(null)(null)! (null)EPLACE?((null)/(null))";:[141]590
675 [161]R$:[139]R$[178]""[167]675
680 [139]R$[178]"N"[167][160]15:[142]
681 [139]R$[178]"Y"[167]685
683 [137]675
685 [153]" CLR(null)K.PRINT#":[152]15,"S0:"[170]FI$:[160]15
688 F$[178]FI$[170]",P,W":[141]410:[153]"(null)LEASE WAIT WHILE SAVING.":[151]827,[195](F$):[129]C[178]1[164][195](F$):[151]827[170]C,[198]([202](F$,C)):[130]:FI$[178]F$:[151]251,(NL)[173]256:[151]250,256[172]((NL)[173]256[171][194](251)):[158]SF:[159]15,8,15:[132]15,ER,ER$:[160]15:[141]410:[153]"CMDSTR$ISK (null)TATUS :"ER","ER$:[153]"(null)RESS ((null)(null)ATNLENVAL) WHEN READY TO CONTINUE
709 GETD$:IFD$<>" "THEN709
710 SV=-1:RETURN
715 :
720 GOSUB303:SYSLS,LN:GOSUB410
725 PRINT"[152]([195][212][210][204])[159][201][152][146]NSERT LINE   ([195][212][210][204])[159][211][152][146]AVE TEXT":PRINT"([195][212][210][204])[159][196][152][146]ELETE LINE   ([195][212][210][204])[159][208][152][146]RINTER":PRINT"([195][212][210][204])[159][200][152][146]ELP          ([195][212][210][204])E[159][216][152][146]IT":IFT$=" "THENRETURN
745 GETME$:IFME$=""THEN745
750 IFME$="D"ORME$="I"ORME$="P"ORME$="H"ORME$="S"ORME$="X"THENRETURN
755 GOTO745
765 PRINT"[147][196]O YOU WISH TO LOAD A TEXT FILE? ([217]/[206])
766 [161]A$:[139]A$[178]""[167]766
767 [139]A$[178]"N"[176]A$[178]"(null)"[167][153]"LOAD":[142]
768 [139]A$[179][177]"Y"[167]766
769 [153]"LOAD":[141]1260:[139]FI$[178]""[167]765
770 [158]MW:[151]250,17:[151]251,39:[151]252,NL[173]256:[151]253,256[172]((NL[173]256)[171][194](252)):[158]LF:T$[178]" ":[141]1295:[139]NL[179][177]0[167]795
790 [159]15,8,15:[132]15,S$:[160]15:[142]
795 [141]300:[142]
805 [158]LS,LN:[141]410:[153]"  * (null)(null)RIGHT$(null)(null) (null)VAL(null)(null) ASCRIGHT$(null)VAL (null)(null) (null)(null)RIGHT$(null)(null)VAL(null) *":[153]"(null)RESS ((null)(null)ATNLENVAL) WHEN READY TO PRINT":[153]"(null)RESS ((null)VAL(null)(null)(null)(null)) TO ABORT
825 GETP$:IFP$=""THEN825
826 IFP$=" "THEN832
830 IFP$=""THEN825
831 GOSUB410:PRINT"[208]RINTING ABORTED":FORT=1TO699:NEXT:RETURN
832 OPEN15,4,15:CLOSE15:IFST=0THEN835
833 GOSUB410:PRINT"[208]RINTER NOT DETECTED":FORT=1TO699:NEXT:RETURN
835 OPEN4,4,7:CMD4:LC=0:LP=1
845 IFNL-LP<120THEN865
850 FORI=LPTOLP+59:RS=60:GOSUB885:NEXT:IFPEEK(203)=23THEN875
860 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:LP=LP+120:GOTO845
865 RS%=(NL-LP+2)/2:RS=RS%:FORI=LPTOLP+RS-1:GOSUB885:NEXT
875 PRINT"";:GETK$:PRINT#4:CLOSE4:RETURN
885 M1=FNS(I):M2=FNS(I+RS):POKE151,M1/256:POKE150,256*(M1/256-PEEK(151)):SYSPR:POKE151,M2/256:POKE150,256*(M2/256-PEEK(151)):SYSPR:RETURN
910 GOSUB303:SYSLS,LN:PRINT"[147]":PRINT"[147][158]         [197][196][211][212][193][210] [200][197][204][208][160][211][195][210][197][197][206]":PRINT"  [212]O ACCESS FUNCTIONS PRESS ([195][212][210][204]) [198].":PRINT"      [212]HE NEXT KEY DOES THE JOB.":PRINT"    [198]1 = [212]OP OF TEXT,   [198]7 = [194]OTTOM":PRINT"    [198]3 = [213]P 10 LINES,   [198]5 = [196]OWN.":PRINT"   ([195][212][210][204]) [211] = [211]PLITS LINES
946 [153]"   (LEN(null)(null)(null)) CHR$ = CHR$LUES LINES":[153]"   (LEN(null)(null)(null)) (null) = (null)IPES LEADING SPACES.":[153]"   (LEN(null)(null)(null)) ATN = ATNPPENDS A FILE.":[153]"   (LEN(null)(null)(null)) (null) = (null)APS BETWEEN \ FLAGS.":[153]"   (LEN(null)(null)(null))CLOSESTR$ = STR$OUBLE SPACES LINES.":[153]"                                      
970 PRINT" [208]RESS ([211][208][193][195][197]) WHEN READY TO CONTINUE
975 [161]T$:[139]T$[179][177]" "[167]975
985 [153]"LOAD":[151]646,12:[158]CL:[141]410:[141]725:[141]300:[129]P[178]LN[171]10[164]LN[170]7:[139]P[179]1[167]1010
1005 [158]MB,P:[158]SC
1010 [130]:[158]MB,P:[141]300:[142]:FU
1025 [141]303:[153]"ASCUNCT:";:[158]LS,LN
1030 [161]F$:[139]F$[178]""[167]1030
1035 [153]"      ";:[139]F$[178]""[167][141]1100:[142]:GL
1045 [139]F$[178]""[167][141]1160:[142]:SP
1050 [139]F$[178]"LET"[167][141]1180:[142]:[128]OF
1055 [139]F$[178]"INPUT"[167][141]1185:[142]:[164]PO
1060 [139]F$[178]"DIM"[167][141]1195:[142]:UP
1065 [139]F$[178]"READ"[167][141]1190:[142]:DO
1070 [139]F$[178]""[167][141]1205:[142]:RI
1075 [139]F$[178]""[167][141]1210:[142]:LE
1080 [139]F$[178]""[167][141]1215:[142]:WI
1085 [139]F$[178]"
"[167][141]1230:[142]:AP[128]
1090 [139]F$[178]""[167][141]1290:[142]:\PU
1092 [139]F$[178]""[167][141]1340:[142]
1095 [142]
1100 [139]LN[177]NL[171]2[167][142]
1105 [158]G1:QE[178][194](252)[170]256[172][194](253):[139]QE[177]1502[167]1145
1115 [158]G2:QX[178][194](150):[141]380:[139]QX[178]0[167]1145
1130 [151]150,QX:[158]G4:[141]1215:[139]QX[177]37[167][141]475
1145 [158]G5:PS[178][194](250)[170][194](251)[172]256:[139]PS[178]1502[167][141]380
1155 [142]
1160 [139]PS[178]1465[167]1175
1165 PZ[178]PS:[141]380:[141]535:PK[178][165]S(LN[171]1):[151]151,PK[173]256:[151]150,256[172]((PK[173]256)[171][194](151)):[151]250,PZ[171]1465:[158]SP
1175 [142]
1180 LN[178]NL:[141]985:[142]
1185 LN[178]1:[141]985:[142]
1190 [129]QD[178]1[164]10:[141]380:[130]:[142]
1195 [129]QD[178]1[164]10:[141]355:[130]:[142]:[141]985:[142]
1205 [141]303:PS[178]1502:[142]
1210 [141]303:PS[178]1465:[142]
1215 [158]G3:QX[178][194](150):[139]F$[178]""[167][141]380
1225 [142]
1230 [153]"LOADATNPPEND:":[141]1260:MA[178][165]S(LN)[170]1:[151]251,MA[173]256:[151]250,256[172]((MA[173]256)[171][194](251)):[151]253,LN[173]256:[151]252,256[172]((LN[173]256)[171][194](253)):[158]LF:QD[178]LN:[141]1295:LN[178]QD:[141]985:[142]
1260 FS$[178]FI$:FI$[178]"":[141]405:[153]"(null)HAT FILE? ($-STR$RIGHT$(null)):";:[141]2000:FI$[178]K$:[139]FI$[178]""[167][142]
1265 [159]15,8,15,"I0":[160]15:[139]FI$[178]"$"[167][153]"LOAD":[158]CA:[153]:[137]1260
1272 F$[178]FI$:[151]827,[195](F$):[129]C[178]1[164][195](F$):[151]827[170]C,[198]([202](F$,C)):[130]:[153]"LOAD":[141]405:[153]"(null)OADING '"FI$"'":[142]
1290 [158]RD
1295 MA[178][194](250)[170][194](251)[172]256:MA[178]MA[171]10001:[139]MA[179]0[167]MA[178]0
1305 NL[178][181](MA[173]40)[170]1:LN[178]1:[141]985:[142]
1315 [141]620:[139]OW[178]0[167]1322
1321 [137]3000
1322 [141]410:[141]725:[142]
1340 [141]1185:[141]380
1345 [139]LN[179]NL[167][141]530:[141]380:[141]380:[137]1345
1350 [141]530:[142]
2000 K$[178]"":[153]"TOCMD";
2010 [161]KE$:[139]KE$[178]""[167]2010
2011 [139]KE$[178][199](20)[175][195](K$)[177]0[167]2040
2015 [139]KE$[178][199](20)[167]2010
2020 [139]KE$[178][199](13)[167][153]" ":[142]
2025 [139][195](K$)[178]16[167]2010
2027 [139]KE$[179]" "[176]KE$[177]"_"[175]KE$[179]"ATN"[176]KE$[177]"(null)"[167]2010
2034 K$[178]K$[170]KE$:[153]KE$;:[153]"TOCMD";:[137]2010
2040 K$[178][200](K$,[195](K$)[171]1):[153]" CMDCMDTOCMD";:[137]2010
3000 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER,ER$:[160]15:[139]ER[179][177]63[167][153]"LOAD":[128]
3002 [147]"HELLO CONNECT",8